home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / fsscl20d / FORM7.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-04-03  |  3.8 KB  |  118 lines
  1. VERSION 5.00
  2. Object = "{75C038D3-EA57-11D2-A3BC-000000000000}#1.0#0"; "fsScroll5D.ocx"
  3. Begin VB.Form frmAuto 
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Auto Mouse Scroll"
  6.    ClientHeight    =   2775
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   6825
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   2775
  14.    ScaleWidth      =   6825
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin FishheadScroll.fsScroll fsScroll1 
  17.       Align           =   1  'Align Top
  18.       Height          =   2745
  19.       Left            =   0
  20.       TabIndex        =   0
  21.       Top             =   0
  22.       Width           =   6825
  23.       _ExtentX        =   12039
  24.       _ExtentY        =   4842
  25.       AdjustBottom    =   0
  26.       AdjustLeft      =   0
  27.       AdjustRight     =   0
  28.       AdjustTop       =   0
  29.       MouseIcon       =   "Form7.frx":0000
  30.       Begin VB.PictureBox Picture1 
  31.          AutoSize        =   -1  'True
  32.          Height          =   1260
  33.          Index           =   5
  34.          Left            =   6570
  35.          Picture         =   "Form7.frx":031A
  36.          ScaleHeight     =   1200
  37.          ScaleWidth      =   6465
  38.          TabIndex        =   6
  39.          Top             =   0
  40.          Width           =   6525
  41.       End
  42.       Begin VB.PictureBox Picture1 
  43.          AutoSize        =   -1  'True
  44.          Height          =   1260
  45.          Index           =   4
  46.          Left            =   6570
  47.          Picture         =   "Form7.frx":13BF
  48.          ScaleHeight     =   1200
  49.          ScaleWidth      =   6465
  50.          TabIndex        =   5
  51.          Top             =   1260
  52.          Width           =   6525
  53.       End
  54.       Begin VB.PictureBox Picture1 
  55.          AutoSize        =   -1  'True
  56.          Height          =   1260
  57.          Index           =   3
  58.          Left            =   6570
  59.          Picture         =   "Form7.frx":2464
  60.          ScaleHeight     =   1200
  61.          ScaleWidth      =   6465
  62.          TabIndex        =   4
  63.          Top             =   2520
  64.          Width           =   6525
  65.       End
  66.       Begin VB.PictureBox Picture1 
  67.          AutoSize        =   -1  'True
  68.          Height          =   1260
  69.          Index           =   2
  70.          Left            =   0
  71.          Picture         =   "Form7.frx":3509
  72.          ScaleHeight     =   1200
  73.          ScaleWidth      =   6465
  74.          TabIndex        =   3
  75.          Top             =   2520
  76.          Width           =   6525
  77.       End
  78.       Begin VB.PictureBox Picture1 
  79.          AutoSize        =   -1  'True
  80.          Height          =   1260
  81.          Index           =   1
  82.          Left            =   0
  83.          Picture         =   "Form7.frx":45AE
  84.          ScaleHeight     =   1200
  85.          ScaleWidth      =   6465
  86.          TabIndex        =   2
  87.          Top             =   1260
  88.          Width           =   6525
  89.       End
  90.       Begin VB.PictureBox Picture1 
  91.          AutoSize        =   -1  'True
  92.          Height          =   1260
  93.          Index           =   0
  94.          Left            =   0
  95.          Picture         =   "Form7.frx":5653
  96.          ScaleHeight     =   1200
  97.          ScaleWidth      =   6465
  98.          TabIndex        =   1
  99.          Top             =   0
  100.          Width           =   6525
  101.       End
  102.    End
  103. Attribute VB_Name = "frmAuto"
  104. Attribute VB_GlobalNameSpace = False
  105. Attribute VB_Creatable = False
  106. Attribute VB_PredeclaredId = True
  107. Attribute VB_Exposed = False
  108. Option Explicit
  109. ' This sample shows how to create an auto mouse scroll.
  110. Private Sub Form_Load()
  111.     ' Can be set at design time or runtime
  112.     fsScroll1.ScrollBorderX = 2000
  113.     fsScroll1.ScrollBorderY = 1400
  114. End Sub
  115. Private Sub Form_Unload(Cancel As Integer)
  116.     Set frmAuto = Nothing
  117. End Sub
  118.